home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scrutiny in the Great Round
/
ScruTiny in the Great Round (1995)(Calliope)[PC-Mac].iso
/
mac
/
SCRUTINY.INF
< prev
next >
Wrap
Text File
|
1995-10-10
|
5KB
|
206 lines
DefineVariables
Number [ReturnVal1]
Number [ReturnVal2]
number [ReturnVal3]
Number [ErrCount]
Directory [WinDir]
Directory [WinsDir]
Logical [EnKeyb]
Logical [NetAvail]
Logical [MathPres]
Logical [CDAvail]
Number [XMSAvail]
Number [ExtmemPagesActive]
Number [ExtmemPagesAvail]
Number [ExtMemAvail]
Number [ExtMemPres]
Number [ExpMempgavail]
Number [ExpMempgactive]
Text [DispType]
Text [OSVer]
Text [DosVer]
Text [EmsVer]
Text [ProdExecutable]
Text [GroupTitle]
Text [GroupFile]
Text [ExistingGroupName]
Text [InstDir]
Text [FactsIconF]
Text [IconTitle]
Text [IconFile]
EndDefineVariables
Do SetupDisplay
Do CheckHardware
If [errcount] > 1
Dialog UseHeader "Encountered Some Problems"
.L The installation has encountered the following problems,
.L you can continue to install or exit installation.
[Array1][1]
[Array1][2]
[Array1][3]
[Array1][4]
[Array1][5]
[Array1][6]
[Array1][7]
EndDialog
Endif
:Start
Do ExecuteInstallation
Procedure ExecuteInstallation
;; show text screen
Dialog BlackOnLightGray
The ScruTiny SETUP program will now run the QuickTime for Windows SETUP program,
which will install version 2.03 of the QuickTime for Windows runtime player.
You must have QuickTime for Windows installed in order to run ScruTiny.
Immediately after QuickTime is copied to your system, there may be a short pause.
Please wait until the ScruTiny SETUP program returns and finishes installation.
If you choose to cancel the QuickTime for Windows SETUP program, you may run it at a
later time by re-running the ScruTiny SETUP program.
EndDialog
Do QuickTimeInstaller
Do Install
Do ModifyScrutinyINI
Do DisplayImergyMessage
Dialog BlackOnLightGray
The installation was successful. Click OK to quit
EndDialog
EndProcedure
Procedure ModifyScrutinyINI
;;ModifyTextFile C:\SCREW\SCRUTINY.INI Quietly
;; AddOrChangeLineWith (option,=,OFF) as "Option = ON" At Beginning|End
;; EndModifyTextFile
ModifyTextFile [InstallationDirectory]\SCRUTINY.INI
AddOrChangeLineWith (CD-ROM,=, ) as "CD-ROM=[InstallFromDrive]" at Beginning
EndModifyTextFile
EndProcedure
Procedure QuickTimeInstaller
RUN [InstallFromDirectory]\QTINSTAL.EXE
EndProcedure
Procedure DisplayImergyMessage
;; Imergy Notice , display for 5 seconds
Dialog 5000 BlackOnLightGray
During installation the physical and virtual RAM of
your computer was checked by RamChecker(TM), created by The Imergists, Inc.,
copyright 1995 The Imergists, Inc. RamChecker is a Trademark of The Imergist, Inc..
EndDialog
EndProcedure
Procedure SetupDisplay
SetDefaultBitMap Off
SetBackGroundColor 0 0 64 0 0 200 TopToBottom
SetPopupAttrTo YellowOnBlue
ShowWindow Maximized
EndProcedure
Procedure getUserSelectedDriveAndDirectory
Dialog [InstallationDirectory] 44
Into which drive and directory would you like to install ScruTiny in the Great Round?
To accept the default directory, click OK.
To choose a different directory, type in another directory name below and click OK.
EndDialog
EndProcedure
Procedure Install
;;set up the default drive\directory
[InstallationDirectory] := [BootDrive]:\ScruTiny
Do getUserSelectedDriveAndDirectory
QueAllFiles
GetQuedFiles
ChangeDirectoryto [InstallationDirectory]
[ProdExecutable] := [InstallationDirectory]\SCRUTINY
[GroupTitle] := Calliope Media
[InstDir] := [InstallationDirectory]
[IconFile] := SCRUTINY.ICO
[IconTitle] := ScruTiny in the Great Round
:Top
ProgramManagerDDE
CreateGroup(Calliope Media)
AddItem([ProdExecutable],[IconTitle],[InstallationDirectory]\[IconFile])
AddItem([InstallationDirectory]\README.TXT,ScruTiny ReadMe,[InstallationDirectory]\README.TXT)
AddItem([InstallationDirectory]\README.EXE,QuickTime ReadMe,[BootDrive]:\Windows\README.EXE)
EndProgramManagerDDE
EndProcedure
;; Check Hardware Procedure
Procedure CheckHardware
[Number3] := 1
[Windir] := [WindowsDirectory]
[Winsdir] := [WindowsSystemDirectory]
[ExtmemPagesActive] := ExtendedMemoryPagesActive
[ExtmemPagesAvail] := ExtendedMemoryPagesAvailable
[ExtMemAvail] := ExtendedMemoryAvailable
[ExtMemPres] := ExtendedMemoryPresent
[ExpMempgAvail] := ExpandedMemoryPagesAvailable
[ExpMempgActive] := ExpandedMemoryPagesActive
[OsVer] := OSVersion
[DosVer] := DOSVersion
[EmsVer] := EMSVersion
If [DOSVer] < 3.1
[Array1][[number3]] := You must have a DOS version of at least 3.1 or more
IncrementNumber [number3]
Endif
[Errcount] := [Number3]
EndProcedure
Procedure HardwareSum
Dialog
DOS Version : [DosVer]
Extended Memory Available : [ExtMemAvail]
Extended Memory Present : [ExtMemPres]
Extended Memory Pages Active : [ExtMemPagesActive]
Extended Memory Pages Available : [ExtMemPagesAvail]
Expanded Memory Pages Available : [ExpmempgAvail]
Expanded Memory Pages Active : [ExpMempgactive]
Windows Directory : [windir]
Windows System Directory : [winsdir]
EndDialog
EndProcedure